<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
<%
username = request("username")

set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("data.mdb")
conn.open connstr
MaxAID=Conn.Execute("select max(ID) from uploadPositionData where username='"&username&"'")(0)
if isnull(MaxAID) or Not IsNumeric(MaxAID) then MaxAID=0
'Response.write "=================="&MaxAID

set rs= server.createobject("adodb.recordset")
sqlstr = "select * from uploadPositionData where id = " & MaxAID
rs.open sqlstr,conn,1,1
if rs.RecordCount <> 0 then
	Do while not rs.eof or rs.bof
		strUserTree = strUserTree & "{username:'"&rs("username")&"',userId:'"&rs("userId")&"',info:'"&rs("info")&"',id:'"&rs("id")&"',lng:'"&rs("lng")&"',lat:'"&rs("lat")&"',result:true}"
		rs.movenext
	loop
else
	strUserTree = strUserTree & "{result:false}"
end if
conn.close
Response.write strUserTree
%>